setwd("C:/Data")
library(sas7bdat)
#'read' function from the sas7bdat package
class_r <- read.sas7bdat("c:/Data/class1.sas7bdat")
names(class_r) <- tolower(names(class_r))
save(class, file = 'class_r.Rdata')
rm ('class_r.Rdata')


# Generate data to create a data frame
i.data1 <- data.frame(sample (0:1, size=1000, replace=T)) 
head(i.data1)

sum_col <- as.matrix(sum(i.data1))
rownames(sum_col) <- "sum-of-col"
sum_col




# Read a space-delimited file, named "class.txt"
r_data_from_tdf <- read.table("C:/r-basics/Data/class.txt")
r_data_from_tdf

# Read a csv file, named "class_csv.txt"
r_data_from_csv <- read.table("C:/r-basics/Data/class_csv.txt",
                              sep=',', header=FALSE)
r_data_from_csv


library("readxl")
r_data_from_xlsx <- readxl::read_excel("C:/r-basics/Data/class.xlsx", sheet=1)  # read first sheet
str(r_data_from_xlsx)

# Load the package required to read JSON files.
library("rjson")
# Give the input file name to the function.
r_data_from_json <- fromJSON(file = "C:/r-basics/data/class.json")
str(r_data_from_json)

# Convert JSON file to a data frame.
r_data_frame_js <- as.data.frame(r_data_from_json)
r_data_frame_js

r_data_from_web <- read.delim("http://www.sthda.com/upload/boxplot_format.txt")
r_data_from_web



 d1 <- "sub  	2002	2003	2004	2005	2006	
        mrj		2196a 	1973 	2142 	2114 	2061   
        coc		1032 	986 	998 	872 	97   
        crk		337 	269 	215 	230 	243" 	  
xd1 <- read.table (textConnection(d1), header=TRUE, as.is=TRUE)
dim  (xd1)


f1<-read.table(text="CTFIP   Hispanic    NonHispanic
	                   6001    323307  1154673
	                   6003    63      1113
                     6005    4566    33761
                     6007    29512   189123
                     6009    4595    41399
                     6011    11136   10029", header=T)
dim  (f1)

observed <- scan(text='
1 0 1 2 2 2 2 1 3 1 3 3
4 5 4 8 5 5 5 9 6 17 6 9
7 24 7 16 8 23 8 27',
                 what=list(integer(),integer(),integer(),integer()),
                 sep=' ',
)
names(observed) <- c('weeks','calls', 'x1','x2' )
observed <- as.data.frame(observed)

observed


# Read a csv file, named "flag.data"
flags <- read.table("C:/r-basics/Data/flag.data", sep=',', header=FALSE)
colnames(flags) <- c('name', 'landmass', 'zone', 'area', 'population', 'language', 
            'religion', 'bars', 'stripes', 'colours', 
            'red', 'green', 'blue', 'gold', 'white', 'black', 'orange', 
            'mainhue','circles', 'crosses', 'saltires', 'quarters', 'sunstars',
            'crescent','triangle', 'icon', 'animate',
            'text', 'topleft', 'botright')
flags
save(flags, file='c:/r-basics/Data/flags.Rdata')
rm(flags)


# Read a csv file, named "class_csv.txt"

class <- read.csv("C:/r-basics/Data/class_csv.txt", sep=',',
                   stringsAsFactors = FALSE)
colnames(class) <- c('name','sex','age', 'height', 'weight')
rownames(class) <- NULL
save (class, file= "C:/r-basics/Data/class.rdata")


load("C:/r-basics/Data/class.rdata")
t_class <- class
print(t_class, row.names = FALSE)


# Read a txt file, named "class.txt"
class_x <- read.table("C:/r-basics/Data/class.txt",
                              header=TRUE, as.is=TRUE)

names(class_x) <- tolower(names(class_x))
save (class_x, file= "C:/r-basics/Data/class_x.rdata")

load("C:/r-basics/Data/class_x.rdata")
t_class_x <- class_x
t_class_x

rm(list = ls() )