|
|
Post by hf on Oct 29, 2020 16:18:16 GMT -8
Im giving up Nuggets wheter I nake CY or not. 🧢 |
|
|
|
Post by Lasagna and tears of failure on Oct 29, 2020 16:20:17 GMT -8
Wtf is this. Can't wait to be free'd from you nerds. Spencer just sim man. spend some to get him to sim tonight |
|
|
|
Post by Lasagna and tears of failure on Oct 29, 2020 16:21:13 GMT -8
Im giving up Nuggets wheter I nake CY or not. 🧢 if he gives up the nuggets immediately without getting CY'd on the next sim, I'll suck my own dick |
|
|
|
Post by Royal on Oct 29, 2020 16:23:13 GMT -8
Spencer give Nuggets away today.
|
|
|
|
Post by Royal on Oct 29, 2020 16:23:26 GMT -8
Ill take them back now
|
|
|
|
Post by Royal on Oct 29, 2020 16:23:36 GMT -8
Get to sucking.
|
|
|
|
Post by Stevie B on Oct 29, 2020 16:25:47 GMT -8
Everyone in this league is a nerd to some degree. foh Galo!!! |
|
|
|
Post by Stevie B on Oct 29, 2020 16:26:13 GMT -8
Wtf is this. Can't wait to be free'd from you nerds. Spencer just sim man. lol |
|
|
|
Post by hf on Oct 29, 2020 16:26:44 GMT -8
28 nuts to his own mouth sad times for brian
|
|
|
|
Post by hf on Oct 29, 2020 16:27:10 GMT -8
Everyone in this league is a nerd to some degree. Speak for yourself mf |
|
|
|
Post by Royal on Oct 29, 2020 16:29:44 GMT -8
28 nuts to his own mouth sad times for brian 😂🤣 |
|
|
|
Post by Lasagna and tears of failure on Oct 29, 2020 16:33:52 GMT -8
28 nuts to his own mouth sad times for brian never said I'd do it to climax... or 28times  |
|
|
|
Post by Stevie B on Oct 29, 2020 16:34:11 GMT -8
28 nuts to his own mouth sad times for brian LMAOOOO |
|
|
|
Post by Lasagna and tears of failure on Oct 29, 2020 16:34:48 GMT -8
Everyone in this league is a nerd to some degree. Speak for yourself mf u here aND DONE IT BEFORE, SO... U AINT GOT SHIT TO SAY fuck ... hit cap lock, too lazy to correct |
|
|
|
Post by Lasagna and tears of failure on Oct 29, 2020 16:35:18 GMT -8
> get_player_stats("Ray Allen", "Celtics", start = 1, end = 59)
AVERAGES
GM MIN FG FGA X3P X3PA FT FTA REB A PF ST TO BL PTS
10.0 35.0 8.2 16.8 3.5 6.6 1.5 1.6 3.7 4.9 1.9 1.1 1.9 0.3 21.4
PERCENTAGES
[1] 0.488 0.530 0.938
> get_player_stats("Ray Allen", "Celtics", start = 61, end = 108)
AVERAGES
GM MIN FG FGA X3P X3PA FT FTA REB A PF ST TO BL PTS
36.0 34.6 6.7 13.9 2.1 4.8 1.8 2.1 4.1 3.0 2.6 1.1 1.8 0.2 17.2
PERCENTAGES
[1] 0.481 0.439 0.853
>
fuckin hell
|
|
footy
Wait List
Ex-GM
Hawks Executive
Posts: 7,082 
|
Post by footy on Oct 29, 2020 16:38:30 GMT -8
Everyone in this league is a nerd to some degree. Speak for yourself mf
Eddy beats up nerds
He is coming for you Galo!
|
|
footy
Wait List
Ex-GM
Hawks Executive
Posts: 7,082
|
Post by footy on Oct 29, 2020 16:39:29 GMT -8
Does Lums get the Nuggets then?
|
|
|
|
Post by Lasagna and tears of failure on Oct 29, 2020 16:52:51 GMT -8
wait Galo, you're in Cali too? |
|
|
|
Post by Galo on Oct 29, 2020 16:53:38 GMT -8
wait Galo, you're in Cali too? Ya LA |
|
|
|
Post by Galo on Oct 29, 2020 16:54:20 GMT -8
Everyone in this league is a nerd to some degree. Speak for yourself mf Pull up LA then Pit. DALE |
|
|
|
Post by Lasagna and tears of failure on Oct 29, 2020 16:55:11 GMT -8
wait Galo , you're in Cali too? Ya LA well fuck... gonna have to bring my wife to cali sooner vs later |
|
|
|
Post by hf on Oct 29, 2020 17:03:26 GMT -8
Eddy beats up nerds
He is coming for you Galo!
Tell em about 2 piece Royal |
|
|
|
Post by Lumley316 on Oct 29, 2020 17:03:37 GMT -8
Does Lums get the Nuggets then? I think Percy |
|
|
|
Post by Lasagna and tears of failure on Dec 19, 2020 15:34:40 GMT -8
fuck yeah, I just made the code better
|
|
|
|
Post by hf on Dec 19, 2020 15:37:21 GMT -8
fuck yeah, I just made the code better Tell me how |
|
|
|
Post by Lasagna and tears of failure on Dec 19, 2020 15:38:03 GMT -8
fuck yeah, I just made the code better Tell me how I'll post the improvement in a few minutes.... dressing it up |
|
|
|
Post by Lasagna and tears of failure on Dec 19, 2020 15:51:08 GMT -8
been tedious af doing 1 player at a time so I did a team function
|
|
|
|
Post by Lasagna and tears of failure on Dec 19, 2020 15:51:21 GMT -8
> get_team_stats(start =61)
Michael Kidd-Gilchrist
AVERAGES
GM MIN FG FGA X3P X3PA FT FTA REB A PF ST TO BL PTS
12.0 35.5 7.6 16.0 1.6 3.4 3.4 4.0 5.8 2.3 2.0 1.7 1.9 0.4 20.2
PERCENTAGES
[1] 0.474 0.463 0.854
Otto Porter
AVERAGES
GM MIN FG FGA X3P X3PA FT FTA REB A PF ST TO BL PTS
12.0 32.8 5.8 15.3 0.8 3.2 2.3 2.9 4.5 3.3 1.7 1.3 1.7 0.2 14.8
PERCENTAGES
[1] 0.380 0.263 0.800
DeJuan Blair
AVERAGES
GM MIN FG FGA X3P X3PA FT FTA REB A PF ST TO BL PTS
12.0 33.3 5.7 11.6 0.0 0.0 3.1 5.2 9.2 3.5 3.8 0.7 1.1 1.0 14.4
PERCENTAGES
[1] 0.489 NaN 0.587
Mike Scott
AVERAGES
GM MIN FG FGA X3P X3PA FT FTA REB A PF ST TO BL PTS
12.0 27.8 5.1 10.8 1.1 2.5 2.2 3.2 4.5 2.4 1.8 0.8 1.1 0.5 13.5
PERCENTAGES
[1] 0.473 0.433 0.711
Paccelis Morlende
AVERAGES
GM MIN FG FGA X3P X3PA FT FTA REB A PF ST TO BL PTS
12.0 37.6 4.1 9.9 0.2 0.2 1.5 1.7 5.7 7.0 1.2 1.2 1.8 1.8 9.8
PERCENTAGES
[1] 0.412 0.667 0.900
Chandler Parsons
AVERAGES
GM MIN FG FGA X3P X3PA FT FTA REB A PF ST TO BL PTS
10.0 7.5 1.3 2.4 0.5 1.1 0.2 0.2 1.1 1.2 0.4 0.2 0.6 0.0 3.3
PERCENTAGES
[1] 0.542 0.455 1.000
Dennis Schroder
No stats found.
John Henson
AVERAGES
GM MIN FG FGA X3P X3PA FT FTA REB A PF ST TO BL PTS
12.0 23.7 2.1 6.2 0.0 0.1 2.3 3.4 7.2 1.4 3.0 0.3 0.6 0.8 6.5
PERCENTAGES
[1] 0.333 0.000 0.683
>
|
|
|
|
Post by Lasagna and tears of failure on Dec 19, 2020 18:29:14 GMT -8
rm(list=ls())
options(stringsAsFactors = FALSE)
options(digits=3)
library('rvest')
path <- "https://bballsim2020.com/"
# ADD YEAR PLUS / FOR PAST SEASONS
teams <- c("Celtics", "Heat", "Nets", "Knicks", "Magic", "76ers", "Wizards",
"Hawks", "Hornets", "Bulls", "Cavaliers", "Pistons", "Pacers",
"Bucks", "Raptors", "Mavericks", "Nuggets", "Rockets",
"Timberwolves", "Spurs", "Jazz", "Grizzlies", "Warriors",
"Clippers", "Lakers", "Suns", "Trail Blazers", "Kings",
"SuperSonics")
colMax <- function(data) sapply(data, max, na.rm = TRUE)
get_player_stats <- function(player, team, start=1, end=200, per36=F){
stats <- c()
for(i in 1:length(team)){
index <- which(team[i] == teams)
url <- paste(path, "/rosters/roster", index, "sched.htm", sep="")
webpage <- read_html(url)
links <- html_attr(html_nodes(webpage, "a"), "href")
links <- links[10:(length(links)-1)]
for(j in 1:length(links)){
url <- paste(path, substr(links[j], 3, nchar(links[j])), sep="")
day <- as.numeric(substr(url, gregexpr("boxes/", url)[[1]][1]+6, gregexpr("-", url)[[1]][1]-1))
if(day >= start & day <= end){
full_box <- html_table(read_html(url), header=TRUE, fill=TRUE)
if(colnames(full_box[[2]])[1] == team[i]){
my_team_index <- 2
opp_team_index <- 3
} else{
my_team_index <- 3
opp_team_index <- 2
}
box <- full_box[[my_team_index]]
box_team <- box[1:(nrow(box)-2), 1:(ncol(box)-1)]
box_team[,3:16] <- lapply(box_team[,3:16], as.numeric)
colnames(box_team)[6:7] <- c("X3P", "X3PA")
if(colnames(box_team)[1] == team[i]){
index <- which(box_team[,1] == player)
if(length(index) > 0){
colnames(box_team)[1] <- "Team"
stats <- rbind(stats, box_team[index,])
}
}
}
}
}
if(is.null(stats)){
cat("No stats found.\n")
} else if(nrow(stats) == 0){
cat("No stats found.\n")
} else{
stats <- cbind.data.frame(GM=nrow(stats), stats[, 3:16])
cat("AVERAGES\n")
averages <- colMeans(stats)
print(round(averages, digits=1))
if(per36 == TRUE){
cat("\nPER 36\n")
constant <- (36 / averages[2])
for(i in 2:length(averages)){
averages[i] <- constant * averages[i]
}
print(round(averages, digits=1))
}
cat("\nPERCENTAGES\n")
print(c(sum(stats$FG) / sum(stats$FGA), sum(stats$X3P) / sum(stats$X3PA),
sum(stats$FT) / sum(stats$FTA)))
}
}
get_team_stats <- function(start=1, end=200, per36=F){
team_N <- "Celtics"
cat("Michael Kidd-Gilchrist\n")
get_player_stats("Michael Kidd-Gilchrist", team_N , start , end)
cat("\n")
cat("Otto Porter\n")
get_player_stats("Otto Porter", team_N, start , end)
cat("\n")
cat("DeJuan Blair\n")
get_player_stats("DeJuan Blair", team_N, start , end)
cat("\n")
cat("Mike Scott\n")
get_player_stats("Mike Scott", team_N, start , end)
cat("\n")
cat("Paccelis Morlende\n")
get_player_stats("Paccelis Morlende", team_N, start , end)
cat("\n")
cat("Chandler Parsons\n")
get_player_stats("Chandler Parsons", team_N, start , end)
cat("\n")
cat("Dennis Schroder\n")
get_player_stats("Dennis Schroder", team_N, start , end)
cat("\n")
cat("John Henson\n")
get_player_stats("John Henson", team_N, start , end)
cat("\n")
}
change Celtics to your team name
Put your Players names in each of these
Syntax for running it is
get_team_stats(start = 61)
which will do from day 61 on or
get_team_stats(start = 25, end = 35)
if you are looking for a specific day range
|
|
|
|
Post by Lasagna and tears of failure on Dec 19, 2020 18:31:01 GMT -8
|
|
