##Exercicio 1 ##

#mudar diretório setwd

#carregar dados

load

#Um comando Perigoso a=10 b=20 ls() rm (list=ls()) ls() #Para recuperar basta ter os códigos salvos

#Remoção com critério rm(list=ls(pattern=“temp”))

#Classes de Objetos letters()#letras minusculas

LETTERS()#letras maiusculas #Classes

class(letters)

class(LETTERS)

#Transformando

factor(LETTERS)

factor(letters)

#Objetos de Data

hoje = Sys.Date()

class(hoje)

[1] “Date”

copa.70= “21/07/70”

class(copa.70)

[1] “character”

copa.70= as.Date(copa.70,format=”%d/%m/%y”)

class(copa.70)

hoje-copa.70

# 14856 days
Exercícios 2

##Exercicio 2

#Biomassa de Árvores #Modelo 1

    e=2.71828
    d=15
    h=12
    b=(e^-1.7953)*(d^2.2974)
    b # igual a 83.61105

#Modelo 2 d=15

    h=12
    lna=log(d)
    lnb=log(h)
    a=lna*1.9960
    b=lnb*0.75581
    ln2=-2.6464+a+b
    ln2 # igual a 4.636985

#Sequencias #a a a a a

a=“a” rep(a,5)

#2. 1 1 1 2 2 2 3 3 3

rep(1:3,each=3)

#3. 1 1 1 2 2 3c

c(rep(1,3),rep(2,2),rep(3,1))

#4.1 2 3 4 5 4 3 2 1

c(seq(1:5),seq(4,1))

#5.Números ímpares de 1 a 99

seq(from=1, to=99, by=2)

# Conta de luz

help(diff)#diff = função de diferença

contas=c(9839,10149,10486, 10746, 11264, 11684, 12082, 12599, 13004 ,13350 13717, 14052) # # #

#máx e min

summary(contas)

#Variancia

var(contas)

help(var)

#Area Basal

dap=13.5

#usar pi r^2/2

pi

r=dap/2

area=(pi*(r^2))/2

area

#tres fustes

raio=c(7,9,12)

area=(pi*(raio^2))/2

area

#Variencia na unha ! pesos =c(78.4, 79.8, 76.0, 75.3, 77.4, 78.6, 77.9, 78.8, 79.2, 75.2, 75.0, 79.4)

# variancia=(soma (xi-X)^2)/(n-1)

X= median(pesos)

var_unha=(sum1)/11

#Comparando

var_unha

var(pesos)

#qse =/ Onde errei ?

desvio=sqrt(var_unha)

desvio

#Teste t- bilateral

t=2.2

gl=19

#t=X1-X2/SX1-X2

#SX1-X2 = RAIZ(S2P/N1+S2P/N2)

#SS=Sum(Xi-X2)^2