In [1]:
y <- 2*x + 3
In [2]:
x <- 3
In [3]:
y <- 2*x + 3
print(y)
In [4]:
df_alunos <- read.csv('pesos-alturas.csv')
In [5]:
head(df_alunos)
In [6]:
summary(df_alunos)
In [7]:
sd(df_alunos$Pesos)
In [8]:
s <- sqrt(sum((df_alunos$Pesos-mean(df_alunos$Pesos))^2/(length(df_alunos$Pesos)-1)))
print(s)
In [ ]: