Rocky R Prime - Revision history

Gderrybe: Update R module to latest version

2026-01-08T14:17:28Z

Update R module to latest version

← Older revision		Revision as of 14:17, 8 January 2026
Line 74:		Line 74:
	#SBATCH --cpus-per-task=40		#SBATCH --cpus-per-task=40

	module load R/~~4.2~~.1-foss-~~2022a~~		module load R-bundle-CRAN/2025.10-foss-2025a
	date		date
	R --version		R --version

2023-04-10T17:54:55Z

R parallel script

← Older revision		Revision as of 17:54, 10 April 2023
Line 33:		Line 33:
	search_space <- 34:999		search_space <- 34:999

	found_primes <- foreach(check_i= search_space, .combine=c() ) %dopar% {		found_primes <- foreach(check_i= search_space, .combine=c ) %dopar% {
	if(any((check_i %% known_primes )==0 ) return(~~list~~())		if(any((check_i %% known_primes )==0 ) ) return(numeric())
	return(~~list~~(check_i))		return(c(check_i))
	}		}

	write.table(sort(c(known_primes, found_primes)), file="R_prime_parallel.txt")		write.table(sort(c(known_primes, found_primes)), file="R_prime_parallel.txt",
			row.names = F,col.names = F)
	</pre>		</pre>
	Only check numbers ending in 1, 3, 7 and 9		Only check numbers ending in 1, 3, 7 and 9
Line 53:		Line 53:
	search_space <- rep(3:99, each=4)*10 + rep(c(1,3,7,9), 97)		search_space <- rep(3:99, each=4)*10 + rep(c(1,3,7,9), 97)

	found_primes <- foreach(check_i= search_space, .combine=c() ) %dopar% {		found_primes <- foreach(check_i= search_space, .combine=c ) %dopar% {
	if(any((check_i %% known_primes )==0 ) return(~~list~~())		if(any((check_i %% known_primes )==0 ) ) return(numeric())
	return(~~list~~(check_i))		return(c(check_i))
	}		}

	write.table(sort(c(known_primes, found_primes)), file="R_prime_parallel_fast.txt")		write.table(sort(c(known_primes, found_primes)), file="R_prime_parallel_fast.txt",
			row.names = F,col.names = F)
	</pre>		</pre>

2023-04-10T17:53:15Z

R serial script

← Older revision		Revision as of 17:53, 10 April 2023
Line 4:		Line 4:
	<pre>		<pre>
	library(foreach)		library(foreach)
	~~registerDoSeq~~()		registerDoSEQ()

	known_primes <-		known_primes <-
Line 11:		Line 11:
	search_space <- 34:999		search_space <- 34:999

	found_primes <- foreach(check_i= search_space, .combine=c() ) %do% {		found_primes <- foreach(check_i= search_space, .combine=c ) %do% {
	if(any((check_i %% known_primes )==0 ) return(~~list~~())		if(any((check_i %% known_primes )==0 ) ) return(numeric())
	return(~~list~~(check_i))		return(c(check_i))
	}		}

	write.table(sort(c(known_primes, found_primes)), file="R_prime_serial.txt")		write.table(sort(c(known_primes, found_primes)), file="R_prime_serial.txt",
			row.names = F,col.names = F)
	</pre>		</pre>

2023-04-10T17:20:50Z

Add repo URL

← Older revision		Revision as of 17:20, 10 April 2023
Line 38:		Line 38:
	}		}

	write.table(sort(c(known_primes, found_primes)), file="~~R_prime_serial~~.txt")		write.table(sort(c(known_primes, found_primes)), file="R_prime_parallel.txt")

	</pre>		</pre>
Line 58:		Line 58:
	}		}

	write.table(sort(c(known_primes, found_primes)), file="~~R_prime_serial~~.txt")		write.table(sort(c(known_primes, found_primes)), file="R_prime_parallel_fast.txt")

	</pre>		</pre>
Line 93:		Line 93:
	[[ -e ~/git ]] \|\| mkdir ~/git # Auto-create git subdirectory		[[ -e ~/git ]] \|\| mkdir ~/git # Auto-create git subdirectory
	cd ~/git # switch to git subdirectory		cd ~/git # switch to git subdirectory
	[[ -e ~~r_prime_cluster~~ ]] \|\| git clone ~~#GITHUB REPO URL~~		[[ -e r-prime-cluster ]] \|\| git clone git@github.com:rocky-cluster/r-prime-cluster.git
	cd ~~r_prime_cluster~~		cd r-prime-cluster
	</pre>		</pre>

2023-04-10T16:26:01Z

← Older revision

Revision as of 16:26, 10 April 2023

2023-04-07T19:37:29Z

2023-04-06T20:23:39Z

@@ Line 29: / Line 29: @@
 registerDoParallel(40)
 </pre>
@@ Line 37: / Line 49: @@
 registerDoParallel(40)
 </pre>

2023-04-06T20:21:04Z

R serial script

← Older revision		Revision as of 20:21, 6 April 2023
Line 8:		Line 8:
	registerDoSeq()		registerDoSeq()

	~~library~~(~~doParallel~~)		known_primes <-
			c(2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31)

	~~registerDoParallel~~(40)		search_space <- 34:999

			found_primes <- foreach(check_i= search_space, .combine=c() ) %do% {
			if(any((check_i %% known_primes )==0 ) return(list())
			return(list(check_i))
			}

			write.table(sort(c(known_primes, found_primes)), file="R_prime_serial.txt")

	</pre>		</pre>

2023-04-06T20:12:35Z

Looking at the results

← Older revision		Revision as of 20:12, 6 April 2023
Line 79:		Line 79:

	=== Looking at the results ===		=== Looking at the results ===
			Check the job queue, wait for job completion

			<pre>
			squeue
			</pre>

			Check log file:
			<pre>
			ls -l R_prime_*.out

			# just look at the latest output log
			cat $( ls -t R_prime_*.out \| head -n 1)
			</pre>

			Check results file:
			<pre>
			# Quick hash check verifying prime number sets are identical
			md5sum $( ls -t R_prime_*.txt \| head -n 3)
			</pre>

2023-04-06T20:06:33Z

Submitting the script