Moses Otieno mosesotieno

## multinom_pivot_wider.R
set.seed(20210511)
library(gtsummary)
library(magrittr)

multinom_pivot_wider <- function(x) {
  # check inputs match expectatations
  if (!inherits(x, "tbl_regression") || !inherits(x$model_obj, "multinom")) {
    stop("`x=` must be class 'tbl_regression' summary of a `nnet::multinom()` model.")
  }


## py4e_ex_11
import re

hand = open("regex_sum_24962.txt")
x=list()
for line in hand:
     y = re.findall('[0-9]+',line)
     x = x+y

sum=0
for z in x:

## clean-names
#!/bin/bash
#
# Often multimedia files downloaded from the internet contain
# as part of the filename things like the site from where they came
# the local language of the audio and such info that is not useful
# when you archive the file to your multimedia repository.
#
# This script renames a set of files, removing everything that does
# not look like part of the file name
#
	set.seed(20210511)
	library(gtsummary)
	library(magrittr)

	multinom_pivot_wider <- function(x) {
	# check inputs match expectatations
	if (!inherits(x, "tbl_regression") \|\| !inherits(x$model_obj, "multinom")) {
	stop("`x=` must be class 'tbl_regression' summary of a `nnet::multinom()` model.")
	}
	import re

	hand = open("regex_sum_24962.txt")
	x=list()
	for line in hand:
	y = re.findall('[0-9]+',line)
	x = x+y

	sum=0
	for z in x:
	#!/bin/bash
	#
	# Often multimedia files downloaded from the internet contain
	# as part of the filename things like the site from where they came
	# the local language of the audio and such info that is not useful
	# when you archive the file to your multimedia repository.
	#
	# This script renames a set of files, removing everything that does
	# not look like part of the file name
	#