myfirstfile.R

getwd()

## [1] "/home/ajayohri/R/R Tutorial 2"

dir()

## [1] "Basics_R.html"        "Basics R.R"           "myfirstfile.R"       
## [4] "myfirstfile.spin.R"   "myfirstfile.spin.Rmd" "rsconnect"           
## [7] "R Tutorial 2.Rproj"

setwd("/home/ajayohri/R/")
dir()

## [1] "R Tutorial 1"                "R Tutorial 2"               
## [3] "x86_64-pc-linux-gnu-library"

ls()

## character(0)

ajay=rnorm(10,5,5)
ajay

##  [1]  6.1840170  4.0149263 15.9765631  7.7232728  1.3886642  7.2048163
##  [7]  4.3962399 13.8168663 10.6201303 -0.5697065

#rm(ajay)
vijay=sample(100,10,F)
vijay

##  [1] 60 21 31 57  1 43 58  8 34 12

myname=c(177,156,165,178,187,156,156,156,175)
#1:100
mean(myname)

## [1] 167.3333

sd(myname)

## [1] 12.10372

var(myname)

## [1] 146.5

max(myname)

## [1] 187

median(myname)

## [1] 165

min(myname)

## [1] 156

range(myname)

## [1] 156 187

plot(myname)

table(myname)

## myname
## 156 165 175 177 178 187 
##   4   1   1   1   1   1

summary(myname)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   156.0   156.0   165.0   167.3   177.0   187.0

length(myname)

## [1] 9

#?sample
money=c("$45,000","55,000","35,000","25000",50000)
mean(money)

## Warning in mean.default(money): argument is not numeric or logical:
## returning NA

## [1] NA

money=gsub("\\$","",money)
money=gsub("\\,","",money)
money=as.numeric(money)