.Rhistory

x <- 1:29
x
x<-1:29
x
x <- c(0.5, 0.6)
x
y <- c(1.7, "a")
y
y <- c(T, 2)
y
y <- c("a", TRUE)
y
class(x)
class(y)
q()
utils:::menuInstallPkgs()
library(swirl)
local({pkg <- select.list(sort(.packages(all.available = TRUE)),graphics=TRUE)
if(nchar(pkg)) library(pkg, character.only=TRUE)})
local({pkg <- select.list(sort(.packages(all.available = TRUE)),graphics=TRUE)
if(nchar(pkg)) library(pkg, character.only=TRUE)})
utils:::menuInstallLocal()
run swirl
swirl
install.packages("swirl") #install swirl
library(swirl)
swirl()
5+7
x<-5+7
x
y<-x-3
y
bye()
exit()
exit
quit
q()
x<-c(1,2,4)
x
mean(x)
max(x)
suM(x)
sum(x)
cube<-function(x,n){}
cube<-function(x,n){ x^3 }
cube(3)
x<-1:10
if(x>5) { }
if (x>5)
{ x<-0 }
rm(x)
if (x>5)
{ x<-0 }
if (x>5) {x<-0}
x<-1
if (x>5) {x<-0}
x
x<7
x<-7
if (x>5) {x<-0}
x
f <- function(x) {
g <- function(y) {
y + z
}
z <- 4
x + g(x)
}
z <- 10
f(3)
x <- 5
y <- if(x < 3) {
NA
} else {
10
}
y <- if(x < 3) {
NA
} else {
10
}
y <- if(x < 3) {
NA
} else {
10
}
y
getpwd()
pwd()
getpwd()
getwd()
dir()
changedir()
changedir
ls()
x
y
ls
ls()
source("swirl")
swirl
load.swirl()
swirl()
demo()
q()
demo()
demo(package = .packages(all.available = TRUE))
'
'
swirl()
load.swirl()
load(swirl)
load('swirl')
source('swirl')
utils:::menuInstallPkgs()
load('swirl')
run('swirl')
swirl()
load.swirl()
install.packages("swirl")
library(swirl)
ls
swirl()
5+7
x <- 5 + 7
x
y <- x - 3
y
z <- c(1.1, 9, 3.14)
?c
z
c(z, 555, z)
z*2+100
mySqrt <- sqrt(z-1)
mySqrt
myDiv <- z/MySqrt
myDiv <- z/mySqrt
myDiv
c(1, 2, 3, 4) + c(0, 10)
c(1, 2, 3, 4) + c(0, 10, 100)
swirl()
1:20
pi:10.
15:1
?`:`
seq(1,20)
seq(0,10, by=0.5)
my_seq <- seq(5, 10, length=30)
length(my_seq)
1:length(my_seq)
seq(along=my_seq)
seq_along(my_seq)
rep(0, times=40)
rep(c(0,1,2), times=10)
rep(c(0,1,2), each=10)
exit
exit()
quit()
swirl()
install(swirl)
load(swirl)
utils:::menuInstallPkgs()
swirl()
install(swirl)
package(swirl)
packages(swirl)
install.packages("swirl")
library(swirl)
swirl()
num_vect <- c(0.5, 55, -10, 6)
tf <- num_vect < 1
tf
num_vect >= 6
my_char <- c("My", "name}
", "is")
info()
my_char <- c("My", "name", "is")
my_char
paste(my_char, collapse = " ")
my_name <- c(my_char, "Yoo")
my_name
paste(my_name, collapse=" ")
paste("Hello", "world!", sep=" ")
paste(1:3, c("X", "Y", "Z"), sep="")
paste(LETTERS, 1:4, sep="-")
x<-c(44, NA, 5, NA)
x*3
y<-rnorm(1000)
z<-rep(NA, 1000)
myData <- sample(c(y, z), 100)
myNA <- is.na(myData)
myNA
myData == NA
sum(myNA)
myData
0/0
Inf-Inf
q()
install.package("swirl")
install.packages("swirl")
library(swirl)
swirl()
x
x[1:10]
x[is.na(x)]
y <- x[!is.na(x)]
y
y[y>0]
x[x>0]
x[!is.na(x) & x>0]
x[c(3,5,7)]
x[0]
x[3000]
x[c(-2, -10)]
x[-c(2, 10)]
vect <- c(foo=11, bar=2, norf=NA)
vect
names(vect)
vect2<-c(11,2,NA)
names(vect2)<-c("foo", "bar", "norf")
identical(vect, vect2)
vect["bar"]
vect[c("foo", "bar")]
myVector<-1:20
myVector
dim(myVector)
length(myVector)
dim(myVector)<-c(4,5)
dim(myVector)
attributes(myVector)
myVector
class(myVector)
myMatrix<-myVector
?matrix
myMatrix2<-matrix(1:20, nrow=4, ncol=5)
identical(myMatrix, myMatrix2)
patients<-c("Bill", "Gena", "Kelly", "Sean")
patients<-c("Bill", "Gina", "Kelly", "Sean")
cbind(patients, myMatrix)
myData <- data.frame(patients, myMatrix)
myData
class(myData)
cnames<-c("patients", "age", "weight", "bp", "rating", "test")
cnames<-c("patient", "age", "weight", "bp", "rating", "test")
colnames(myData)<-cnames
myData
q()
search()
install.packages("swirl")
search()
library(swirl)
search()
ls()
vect
x
y
library(swirl)
rm(list=ls())
ls()
swirl()
q()
getwd()
setwd("C:\Users\InfoMobius\Documents\GitHub\ProgrammingAssignment2")
setwd("C:/Users/InfoMobius/Documents/GitHub/ProgrammingAssignment2")