Publications by Mark Perkins, Ph.D.
Extra Code R Book
#Load the libraries library(tidyverse) library(dplyr) library(ggplot2) #Figure 2.1: How our students scored compared to the mean and each other as coded in R # Create the data data <- data.frame( Name = c("Malcolm", "Josie", "Liam", "Jackson", "Xavier"), Score = c(10, 12, 12, 15, 23)) # Calculate the mean mean_score <- mean(data$Score)...
1397 sym R (53432 sym/70 pcs) 19 img
February Job Postings for Wyoming K12
class: center, middle, inverse, title-slide .title[ # _ ] .author[ ### Wyoming K12 Job Postings as of February 28, 2025 ] .date[ ### University of Wyoming Dean’s Office ] --- background-image: url("https://marksresearch.shinyapps.io/PictureSite/_w_572f12eb/background.png") background-size:910px 700px ## What are the job openings ...
3308 sym
Group Comparisons (EDRE 5610) University of Wyoming
#Load libraries Import the data You may need to install.packages(‘readxl’) #Load this library in case library(readxl) # Import the Practice Math Planet Data and name it "planetmath" planetmath<- readxl:: read_xlsx('Practice_Math_Planet_Data.xlsx') Recode numbers to values R does not need all values to be numbers, unlike SPSS library(tid...
509 sym R (14588 sym/53 pcs) 5 img
Qualtrics Data with R and Python
knitr::opts_chunk$set(echo = TRUE) We begin by loading one survey from qualtrics using R Be sure to load your libraries library(qualtRics) library(psych) library(tidyverse) We have our API token on a .txt file This gives us a list of all the surveys under the API api_key <- readLines("qualtrics.txt", warn = FALSE) # Use the api_key in your ...
1068 sym R (25495 sym/28 pcs)
Document
Load your libraries. Be sure to install your packages first! packages <- c( "psych", "summarytools", "Hmisc", "dplyr", "stats", "rstatix", "ggplot2", "apaTables", "effectsize", "car", "rcompanion", "vcd", "tukeytrend", "lme4", "lmtest", "broom", "modelr", "tidyverse", "lubridate", "janitor", "data.table", "readr", "knitr", "mosaicDa...
286 sym R (16792 sym/24 pcs) 3 img
Wyoming CTE
class: center, middle, inverse, title-slide .title[ # _ ] .author[ ### CTE In Wyoming ] .date[ ### University of Wyoming Dean’s Office ] --- background-image: url("https://marksresearch.shinyapps.io/PictureSite/_w_572f12eb/background.png") background-size:910px 700px ### What I will Cover - Job Postings Wyoming's Education System...
4313 sym
August 16 TEI Meeting
class: center, middle, inverse, title-slide .title[ # _ ] .author[ ### TEI August 16 Meeting ] .date[ ### Mark Perkins, Ph.D.,University of Wyoming Dean’s Office ] --- background-image: url("https://marksresearch.shinyapps.io/PictureSite/_w_572f12eb/background.png") background-size:910px 700px ## What I will Cover - Job Postings ...
7550 sym
CTE in Wyoming
class: center, middle, inverse, title-slide .title[ # _ ] .author[ ### CTE Job Postings in Wyoming ] .date[ ### Mark Perkins, Ph.D.,University of Wyoming Dean’s Office ] --- background-image: url("https://marksresearch.shinyapps.io/PictureSite/_w_572f12eb/background.png") background-size:910px 700px ## What is Career and Technical...
9891 sym
CTE Job Postings
class: center, middle, inverse, title-slide .title[ # _ ] .author[ ### CTE Job Postings in Wyoming ] .date[ ### Mark Perkins, Ph.D.,University of Wyoming Dean’s Office ] --- background-image: url("https://marksresearch.shinyapps.io/PictureSite/_w_572f12eb/background.png") background-size:910px 700px ## What is Career and Technical...
7627 sym
Emil Study
library(tidyverse) library(tidyselect) library(readxl) # Read the "Model Evaluation" tab model_evaluation <- read_excel("DataSet.xlsx", sheet = "Model Evaluation") # Read the "Tagging data" tab tagging_data <- read_excel("DataSet.xlsx", sheet = "Tagging Data") %>% mutate(ModelNum = case_when( model == "1- Initial Model" ~ "ModelOne"...
226 sym R (35599 sym/79 pcs) 3 img