Publications by Marvanessa Dinorog
STAT 56 MIDTERM EXAM
DATA library(readxl) PCAdata <- read_excel("D:/MARV BS MATH/4th year, 2nd sem/Multivariate/PCAdata.xlsx") PCAdata # A tibble: 32 × 10 MAMMAL top i…¹ botto…² top c…³ bot c…⁴ top p…⁵ botpr…⁶ topmo…⁷ botmo…⁸ totals <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> 1 BROWN… 2...
1923 sym R (29434 sym/48 pcs) 5 img
Principal Components Analysis
Principal Components Analysis in R Principal Components Analysis(PCA) is used in exploratory data analysis and for making decisions in predictive models. PCA commonly used for dimensionality reduction by using each data point onto only the first few principal components (most cases first and second dimensions) to obtain lower-dimensional data wh...
2725 sym 2 img
STAT 54 MIDTERM EXAM
DATA 1. What is the socio- demographic profile of the respondents in terms of: 1.1 Age 1.2 Sex 1.3 Number of years 1.4 Socio-economic status 2. What is the psychological well-being of the students raised by single parents in terms of: a. Autonomy b. Environmental Mastery c. Personal growth d. Positive relations e. Purpose in life f....
5250 sym
ACTIVITY 1_STAT-56
Using R for Multivariate Analysis Reading Multivariate Analysis Data into R wine <- read.table("http://archive.ics.uci.edu/ml/machine-learning-databases/wine/wine.data", sep=",") wine Plotting Multivariate Data A Matrix Scatterplot wine1<-wine[2:6] paged_table(wine1) scatterplotMatrix(wine[2:6]) A Scatterplot with the Data Points ...
2253 sym Python (51230 sym/103 pcs) 9 img
Exercise 2
knitr::opts_chunk$set(echo = TRUE) Data library(readxl) Data1 <- read_excel("D:/MARV BS MATH/Marv 4th year, 1st sem/Regression Analysis/Data1.xlsx") View(Data1) TT1 <- Data1 TT1 #Start by loading the following R packages: library(tidyverse)#data manipulation and visualization ## ── Attaching packages ───────────�...
914 sym R (33381 sym/29 pcs) 8 img
Paired sample t-test using R
library(readxl) Data2 <- read_excel("Data2.xlsx") View(Data2) ICT training data before <- c(12.2, 14.6, 13.4, 11.2, 12.7, 10.4, 15.8, 13.9, 9.5, 14.2) after <- c(13.5, 15.2, 13.6, 12.8, 13.7, 11.3, 16.5, 13.4, 8.7, 14.6) data <- data.frame(subject = rep(c(1:10), 2), time = rep(c("before", "after"), each = 10), ...
1409 sym R (3920 sym/21 pcs) 2 img
Equality of Variances in R-Homogeneity test-Quick Guide
1. F-test in R str(ToothGrowth) ## 'data.frame': 60 obs. of 3 variables: ## $ len : num 4.2 11.5 7.3 5.8 6.4 10 11.2 11.2 5.2 7 ... ## $ supp: Factor w/ 2 levels "OJ","VC": 2 2 2 2 2 2 2 2 2 2 ... ## $ dose: num 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 ... Shapiro Test Shapiro-Wilk normality test shapiro.test(ToothGrowth$len) ## ## ...
1289 sym R (1984 sym/20 pcs)
One-way ANOVA
data <- PlantGrowth set.seed(123) dplyr::sample_n(data, 10) ## weight group ## 1 5.87 trt1 ## 2 4.32 trt1 ## 3 3.59 trt1 ## 4 5.18 ctrl ## 5 5.14 ctrl ## 6 4.89 trt1 ## 7 5.12 trt2 ## 8 4.81 trt1 ## 9 4.50 ctrl ## 10 4.69 trt1 levels(data$group) ## [1] "ctrl" "trt1" "trt2" data$group <- ordered...
1947 sym R (5277 sym/59 pcs) 6 img
DINOROG_Experimental Design Midterm Examination
Question 1 A COVID frontliner wants to estimate the average amount that a resident in Maramag would donate to COVID affected families in Maramag. Twenty residents were randomly selected from the Municipality of Maramag. The 20 randomly residents were contacted by telephone and asked how much they would be willing to donate. Their responses ar...
4992 sym R (6803 sym/56 pcs) 3 img
RCBD
Problem statement An experiment was conducted in RCBD to study the comparative performance of fodder sorghum lines under rain fed conditions. Data is furnished below. Are all lines same? If not carry out LSD test and Duncan test to compare the lines. library(readxl) RBD <- read_excel("D:/MARV BS MATH/Marv 4th year, 1st sem/Regression Analysis...
1333 sym R (3899 sym/26 pcs) 1 img